Imports DAO
Imports DTO
Public Class MonHocBUS
    Public Sub Them(ByVal mhDTO As MonHocDTO)
        Dim mhDAO As New MonHocDAO()
        mhDAO.Them(mhDTO)
    End Sub
    Public Sub XoaTheoMa(ByVal maMonHoc As String)
        Dim mhDAO As New MonHocDAO()
        mhDAO.XoaTheoMa(maMonHoc)

    End Sub

    Public Function TiemKiemTheoMa(ByVal maMonHoc As String) As MonHocDTO
        Dim mhDTO As MonHocDTO
        Dim mhDAO As New MonHocDAO()
        mhDTO = mhDAO.TiemKiemTheoMa(maMonHoc)
        Return mhDTO
    End Function
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim mhDAO As New MonHocDAO()
        dt = mhDAO.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim mhDAO As New MonHocDAO()
        mhDAO.CapNhatBang(dt)
    End Sub
    Public Function LayDanhSach() As IList
        Dim ds As IList
        Dim mhDAO As New MonHocDAO()
        ds = mhDAO.LayDanhSach()
        Return ds
    End Function
End Class
